/* GUI CONVERTED from ardrfmb.i (converter v1.76) Thu May 15 20:39:59 2003 */
/* ardrfmb.i - DEFINE FORM FOR AR MEMO MAINTENANCE                      */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* Revision: $                                                        */
/*V8:ConvertMode=Maintenance                                            */
/* REVISION: 6.0      LAST MODIFIED: 09/06/90   by: mlb *D065* */
/* REVISION: 6.0      LAST MODIFIED: 10/08/90   by: mlb *D079* */
/* REVISION: 6.0      LAST MODIFIED: 02/28/91   by: afs *D387* */
/* REVISION: 6.0      LAST MODIFIED: 02/05/92   by: tmd *F169* */
/* REVISION: 7.0      LAST MODIFIED: 03/22/92   by: tmd *F302* */
/* REVISION: 7.0      LAST MODIFIED: 03/27/92   by: dld *F322* */
/* REVISION: 7.0      LAST MODIFIED: 04/11/92   by: afs *F356* */
/* REVISION: 7.0      LAST MODIFIED: 09/15/94   by: ljm *FR42* */
/* REVISION: 7.4      LAST MODIFIED: 02/17/95   by: wjk *H0BH* */
/* REVISION: 7.4      LAST MODIFIED: 04/20/95   by: jpm *H0CH* */
/* REVISION: 8.6      LAST MODIFIED: 06/18/96   by: pjg *K001* */
/* REVISION: 8.5      LAST MODIFIED: 07/15/96   by: taf *J0ZC* */
/* REVISION: 8.6      LAST MODIFIED: 09/03/96   by: jzw *K00B* */

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan        */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.0      LAST MODIFIED: 03/10/99   by: *M0B3* Michael Amaladhas */
/* REVISION: 9.0      LAST MODIFIED: 03/13/99   by: *M0BD* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 10/01/99   by: *N014* Jeff Wootton      */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane    */
/* REVISION: 9.1      LAST MODIFIED: 08/11/00 BY: *N0KK* jyn                 */
/* REVISION: 9.1      LAST MODIFIED: 08/04/00 BY: *N0VV* BalbeerS Rajput     */
/* Old ECO marker removed, but no ECO header exists *F0PN*                   */
/* Revision: 1.9.1.7     BY: Vihang Talwalkar DATE: 10/22/01 ECO: *P01V*      */
/* $Revision: 1.9.1.8 $    BY: Orawan S.        DATE: 05/08/03 ECO: *P0RJ* */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

{cxcustom.i "ARDRFMB.I"}
/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE ardrfmb_i_1 "Expt Date"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_2 "Comm3"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_3 "Comm1"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_4 "Comm2"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_5 "Comm4"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_6 "Acct"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_7 "Total"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_8 "Slspsn4"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_9 "Slspsn2"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_10 "Slspsn1"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_11 "Slspsn3"
/* MaxLen: Comment: */

&SCOPED-DEFINE ardrfmb_i_12 "Sales Amt"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

define {1} shared frame b.

/* FORM REDESIGNED FOR FOUR SALESPERSONS */
/* MOVED ACCOUNT TO LAST LINE, MOVED 4TH COLUMN UP 1 LINE */

{&ARDRFMB-I-TAG1}
{&ARDRFMB-I-TAG3}
FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
ar_nbr         colon 10  format "X(8)" space(2)
   ar_bill
   cm_sort        no-label
   ar_curr        colon 10
   ar_type
   ar_date
   ar_effdate
   ar_tax_date
   artotal        colon 13
   ar_amt                   label {&ardrfmb_i_7}
   ar_sales_amt   colon 10  label {&ardrfmb_i_12}
   ar_dy_code     colon 62
   ar_cr_terms    colon 10
   ar_slspsn[1]   colon 29  label {&ardrfmb_i_10}
   ar_comm_pct[1]           label {&ardrfmb_i_3}
   ar_entity      colon 62  format "X(4)"
   ar_disc_date   colon 10
   ar_slspsn[2]   colon 29  label {&ardrfmb_i_9}
   ar_comm_pct[2]           label {&ardrfmb_i_4}
   ar_cust        colon 62
   ar_due_date    colon 10
   ar_slspsn[3]   colon 29  label {&ardrfmb_i_11}
   ar_comm_pct[3]           label {&ardrfmb_i_2}
   ar_ship        colon 62
   ar_expt_date   colon 10  label {&ardrfmb_i_1}
   ar_slspsn[4]   colon 29  label {&ardrfmb_i_8}
   ar_comm_pct[4]           label {&ardrfmb_i_5}
   ar_batch       colon 62
   ar_po          colon 10
   /*fdn2009.07.13*/ ar_user1 format "x(1)" no-label
   ar_dun_level   colon 45
   ar_contested   colon 62
   ar_print       colon 10
   ar_acct        colon 28  label {&ardrfmb_i_6}
   ar_sub                   no-label
   ar_cc                    no-label
   ar_shipfrom   colon 62
 SKIP(.4)  /*GUI*/
with frame b side-labels width 80 NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-b-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame b = F-b-title.
 RECT-FRAME-LABEL:HIDDEN in frame b = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame b =
  FRAME b:HEIGHT-PIXELS - RECT-FRAME:Y in frame b - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME b = FRAME b:WIDTH-CHARS - .5.  /*GUI*/

{&ARDRFMB-I-TAG4}
{&ARDRFMB-I-TAG2}

/* SET EXTERNAL LABELS */
setFrameLabels(frame b:handle).
